home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / burglr / burglar.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  1.5 KB  |  59 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00808080&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   645
  7.    ClientLeft      =   5955
  8.    ClientTop       =   1485
  9.    ClientWidth     =   1410
  10.    ControlBox      =   0   'False
  11.    Height          =   1050
  12.    Icon            =   BURGLAR.FRX:0000
  13.    Left            =   5895
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   645
  19.    ScaleWidth      =   1410
  20.    Top             =   1140
  21.    Width           =   1530
  22.    Begin Timer Timer1 
  23.       Interval        =   2500
  24.       Left            =   600
  25.       Top             =   0
  26.    End
  27.    Begin PictureBox Picture1 
  28.       Height          =   495
  29.       Left            =   0
  30.       ScaleHeight     =   465
  31.       ScaleWidth      =   465
  32.       TabIndex        =   0
  33.       Top             =   0
  34.       Width           =   495
  35.    End
  36. Sub form_load ()
  37. Randomize Timer
  38. picture1.picture = LoadPicture("burglar.ico")
  39. form1.width = picture1.width
  40. form1.height = picture1.height
  41. form1.top = (Rnd * screen.height + 1) - form1.height
  42. form1.left = (Rnd * screen.width + 1) - form1.width
  43. End Sub
  44. Sub Picture1_Click ()
  45. Unload form1
  46. End Sub
  47. Sub Timer1_Timer ()
  48. form1.visible = 0
  49. delay = (Rnd * 5000) + 1
  50. For y = 1 To delay
  51.     x = DoEvents()
  52. Next y
  53.     x = DoEvents()
  54. form_load
  55.     x = DoEvents()
  56. form1.visible = -1
  57.     x = DoEvents()
  58. End Sub
  59.